home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9207.d64 / convert [w]text (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  871b  |  24 lines
  1. 1 POKE53280,0:POKE53281,0:PRINT"[147][158]"
  2. 2 PRINT" [212]HIS PROGRAM CONVERTS THE [193][205][201][195][193]-[208][193][201][206][212]"
  3. 3 PRINT" TEXT-EXTENSION  ROUTINE, FOR  THE USE"
  4. 4 PRINT" OF EXPANDED CHARACTERSETS."
  5. 5 PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  6. 6 PRINT"[154]  [201]NSERT DISK WITH THE TEXT-EXTENSION,"
  7. 7 PRINT"  THEN PRESS ANY KEY."
  8. 8 POKE198,0:WAIT198,1:POKE198,0
  9. 9 PRINT"  [204]OADING THE TEXT-EXTENSION.[144]"
  10. 10 SYS57812"[W]TEXT",8,1:POKE780,0:SYS65493
  11. 11 EL=PEEK(174):EH=PEEK(175)
  12. 12 PRINT:PRINT"[154]  [195]ONVERTING THE TEXT-EXTENSION."
  13. 13 F1=PEEK(16593):F3=PEEK(16603)
  14. 14 IFF1=133ANDF3=134THENPRINT"    [212]HIS IS ALREADY THE NEW VERSION. ":END
  15. 15 IFF1<>166ORF3<>220THENPRINT"    [212]HIS IS NOT THE TEXT-EXTENSION. ":END
  16. 16 POKE16593,133:POKE16603,134
  17. 17 PRINT"[154]  [201]NSERT NEW DISK, THEN PRESS ANY KEY."
  18. 18 POKE198,0:WAIT198,1:POKE198,0
  19. 19 PRINT"  [210]ENAMING OLD VERSION."
  20. 20 OPEN1,8,15,"R:[W]TEXT.OLD=[W]TEXT":CLOSE1
  21. 21 PRINT"  [211]AVING NEW VERSION.[144]"
  22. 22 SYS57812"[W]TEXT",8:POKE193,0:POKE194,64:SYS62957
  23. 23 PRINT"[145][159]"
  24.